home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / opint102.5rc / DEMO_COM.PAS < prev    next >
Pascal/Delphi Source File  |  1988-12-04  |  2KB  |  46 lines
  1. Program Demo_Com;
  2.  
  3.   {***************************************************************************}
  4.   {*                                                                         *}
  5.   {* O p u s   I n t e r f a c e    V e r   1.02     Demo Program.           *}
  6.   {*                                                                         *}
  7.   {* Opus V 1.0x Interface for Turbo Pascal Ver 4.0                          *}
  8.   {*                                                                         *}
  9.   {*  These Structures,Procedures and Functions may help you to make OPUS    *}
  10.   {* utilities for to help other SysOps, Please read the Documentation.      *}
  11.   {*                                                                         *}
  12.   {*  Regards                                                                *}
  13.   {*    Per Holm                                                             *}
  14.   {*                                                                         *}
  15.   {*   FIDO: Per Holm - Asgaard BBS 2:230/22.0                               *}
  16.   {*   UUCP: perholm@daimi.DK                                                *}
  17.   {*                                                                         *}
  18.   {***************************************************************************}
  19.  
  20. Uses OPINT,Crt,Dos;
  21.  
  22. VAR
  23.   c:char;
  24.   i: Integer;
  25.   ComIn,ComOut: Text;
  26.   Line: String[80];
  27.  
  28. BEGIN
  29.   _Snoop:=_On;                                 { Look at this...              }
  30.   _KeyBoard:=_On;                              { Enable Keyboard              }
  31.   _ExitCarrier:=0;                             { Don't exit on Carrier change }
  32.   AssignFossil(ComIn,0,0);                     { Assign for input Don;t       }
  33.   Reset(ComIn);                                { change BaudRate              }
  34.   AssignFossil(ComOut,0,0);                    { Here's a device to write to  }
  35.   rewrite(ComOut);
  36.   WriteLn(ComOut,'Hi Johnny, Enter a line of text');
  37.   Readln(ComIn,Line);
  38.   Writeln(ComOut,'OK here we go : "',Line,'"');
  39.   IF FossilCarrier(ComIn) THEN
  40.     Writeln('Carrier OK');
  41.   write(ComOut,'Thanx Press Enter');
  42.   repeat
  43.   until ReadFossil(ComIn)=#13;
  44.   writeln(ComOut);
  45. END.
  46.